home *** CD-ROM | disk | FTP | other *** search
/ 500 MB Nyheder Direkte fra Internet 10 / 500 MB nyheder direkte fra internet CD 10.iso / start / progs / dos / games / charly / bestell.bat next >
DOS Batch File  |  1995-12-08  |  2KB  |  63 lines
  1. :menu
  2. echo off
  3. cls
  4. echo        ┌─┐ ┬ ┬ ┌─┐ ┌─┐ ┬   ┬ ┬     ─┬─ ┬ ┬ ┌─┐     ┌─┐ ┬   ┌─┐ ┬ ┬ ┌┐┌
  5. echo        │   ├─┤ ├─┤ ├┬┘ │   └┬┘      │  ├─┤ ├─      │   │   │ │ │││ │││
  6. echo        └── ┴ ┴ ┴ ┴ ┴└  └──  ┴       ┴  ┴ ┴ └──     └── └── └─┘ └┴┘ ┴└┘
  7. echo ─────────────────────── Copyright 1995 by Schenk & Horn ───────────────────────
  8. echo.
  9. echo.
  10. echo        Bitte wählen...
  11. echo.
  12. echo.
  13. echo        1 - Anleitung lesen
  14. echo.
  15. echo        2 - Bestellformular drucken
  16. echo.
  17. echo        3 - "Was ist Shareware?"            ┌────────────────────────────┐
  18. echo.                                           │ Wenn Sie dieses Programm   │
  19. echo        4 - Produktliste ansehen            │ später erneut starten      │
  20. echo.                                           │ möchten, geben Sie einfach │
  21. echo        0 - Exit                            │ BESTELL ein.               │
  22. echo.                                           └────────────────────────────┘
  23. echo.
  24. echo        Ihre Wahl...
  25. taste key 1 2 3 4 0
  26. if errorlevel 52 goto prolist
  27. if errorlevel 51 goto share
  28. if errorlevel 50 goto print
  29. if errorlevel 49 goto doc
  30. if errorlevel 48 goto ende
  31.  
  32. :prolist
  33. prolist
  34. goto menu:
  35.  
  36. :share
  37. prolist share.lst
  38. goto menu:
  39.  
  40. :doc
  41. prolist doc_ger.lst
  42. goto menu:
  43.  
  44. :print
  45. cls
  46. echo        ┌─┐ ┬ ┬ ┌─┐ ┌─┐ ┬   ┬ ┬     ─┬─ ┬ ┬ ┌─┐     ┌─┐ ┬   ┌─┐ ┬ ┬ ┌┐┌
  47. echo        │   ├─┤ ├─┤ ├┬┘ │   └┬┘      │  ├─┤ ├─      │   │   │ │ │││ │││
  48. echo        └── ┴ ┴ ┴ ┴ ┴└  └──  ┴       ┴  ┴ ┴ └──     └── └── └─┘ └┴┘ ┴└┘
  49. echo ─────────────────────── Copyright 1995 by Schenk & Horn ───────────────────────
  50. echo.
  51. echo.
  52. echo BESTELLFORMULAR DRUCKEN....
  53. echo:
  54. echo Bitte schalten Sie Ihren Drucker online und legen Sie Papier ein...
  55. echo.
  56. echo Drücken Sie dann eine Taste um den Ausdruck zu starten...
  57. pause > nul
  58. copy bestell.frm prn
  59. goto menu:
  60.  
  61. :ende
  62. cls
  63.